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-- file CPassl.Mesa 

-- last modified by Johnsson, July 25, 1978 4:55 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
ControlDefs: FROM "controldef s" , 
SegmentDefs: FROM "segmentdef s", 
StringDefs: FROM "stringdef s" , 
SymTabDefs: FROM "symtabdef s" , 
SymDefs: FROM "symdefs", 
TableDefs: FROM "tabledefs" , 
TreeDefs: FROM "treedefs"; 

CPassl: PROGRAM 
IMPORTS 

TableDefs, SymTabDefs ■ 
BEGIN 
OPEN SymTabDefs, SymDefs; 

-- from ComData 

-- basic types (initialized in Passl) 

typelNTEGER, typeBOOLEAN, typeCHARACTER, typeSTRING: CSEIndex; 

typeREAL, typeLOCK, typeCONDITION: CSEIndex; 

idANY; ISEIndex; 

idlNTEGER, idCARDINAL, idCHARACTER, idBOOLEAN, idSTRING: ISEIndex; 

idREAL, idLOCK: ISEIndex; 

-- anonymous entry for undeclared ids 
seAnon: ISEIndex; 

-- symbolic constants 

idTRUE, idFALSE: ISEIndex; 

-- global info describing module 

outerCtx: CTXIndex; -- predefined identifiers 

-- symbol table bases 

seb: TableDefs. TableBase; -- semantic entry base 
ctxb: TableDefs. TableBase; -- context table base 

PINotify: TableDefs .TableNotif ier - 
BEGIN 

seb «- base[setype]; ctxb <- base[ctxtype]; 
RETURN 
END; 

-- definition of standard symbols 

WordLength: CARDINAL = Al toDef s.wordlength; 

PrefillSymbols: PROCEDURE - 

BEGIN -- called to prefill the compiler's symbol table 

tSei, ptrSei: CSEIndex; 

rSei: recordCSEIndex; 

tCtx: CTXIndex; 

sei: ISEIndex; 

outerCtx <- makenewctx[!Z]; 

idANY «- MakeBasicType["UNSPECIFIED M , codeANY, TRUE, WordLength]; 

IF UnderType[idANY] # typeANY THEN ERROR; 
idlNTEGER *- MakeBasicType[ M INTEGER M , codelNTEGER, TRUE, WordLength]; 

typelNTEGER «- UnderType[idINTEGER]; 
idCHARACTER <- MakeBasicType["CHARACTER" , codeCHARACTER , TRUE, Al toDef s . charlength] ; 

typeCHARACTER *■ UnderType[idCHARACTER]; 
— make BOOLEAN type 

typeBOOLEAN <- makenonctxse[SIZE[enumerated constructor SERecord]]; 
idBOOLEAN «- MakeNamedType[ M BOOLEAN M , typeBOOLEAN]; 
tCtx *- makenewctx[!Z] ; 

(seb+typeBOOLEAN)t <- SERecord[mark3: TRUE, mark4: TRUE, 
sebody: constructor[ 
enumerated[ 

ordered: TRUE, 
valuectx: tCtx, 
nvalues: 2]]]; 
[] «- MakeConstant["FALSE" , tCtx, idBOOLEAN, 0]; 
[] *■ MakeConstant["TRUE M , tCtx, idBOOLEAN, 1]; 
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resetctxl ist[tCtx]; 
idCARDINAL 4- MakeSubrangeType[ M CARDINAL" , 0, AltoDef s.maxword]; 
[] + MakeNamedType[ M WORD\ UnderType[1dCARDINAL]]; 
-- make REAL type 

typeREAL 4- makenonctxse[SIZE[rea1 constructor SERecord]]; 
(seb+typeREAL)t 4- SERecord[mark3 : TRUE, mark4: TRUE, 
sebody: con s true to r[ real [rangetype: id INTEGER]]]; 
idREAL <- MakeNamedType["REAL\ typeREAL]; 
-- make STRING type 

rSei «- MakeRecord[nFields:3, nBits:2*WordLength]; 
[] <- MakeField["length", idCARDINAL, [wd:0, bd:0], WordLength]; 
sei *- MakeField["maxlength", . idCARDINAL, [wd:l, bd:0], WordLength]; 
(seb+sei) .writeonce «- TRUE; 

tSei 4- makenonctxse[SIZE[array constructor SERecord]]; 
(seb+tSei)t 4- SERecord[mark3: TRUE, mark4: TRUE, 
sebody: constructor[ 
array[ 

packed: TRUE, 

indextype: idCARDINAL, -- a fudge 
componenttype: idCHARACTER, 
comparable: FALSE, 
lengthUsed: FALSE]]]; 
sei 4- MakeField["text", tSei, [wd:2, bd:0], 0]; 
tSei <- MakePointerType[MakeNamedType["StringBody" , rSei]]; 
idSTRING «- MakeNamedType["STRING M , tSei]; 
typeSTRING 4- UnderType[idSTRING]; 
-- make LOCK type 

rSei *- MakeRecord[nFields: 1, nBits:WordLength]; 
(seb+rSei) .unif ield <- FALSE; 

[] 4- MakeField[NIL, idANY, [wd:0, bd:0], WordLength]; 
idLOCK <- MakeNamedTypeC'MONITORLOCK", rSei]; 
typeLOCK 4- UnderType[idLOCK]; 
— make CONDITION type 

rSei 4- rSei *- MakeRecord[nFields:2, nBits: 2*WordLength]; 
[] 4- MakeField[NIL, idANY, [wd:0, bd:0], WordLength]; 
[] +- MakeField["timeout\ idCARDINAL, [wd:l, bd:0], WordLength]; 
typeCONDITION 4- UnderType[MakeNamedType["CONDITION" , rSei]]; 
-- make a universal pointer type 

ptrSei 4- MakePointerType[typeANY]; 
-- enter the Boolean constants 

idTRUE 4- MakeConstant["TRUE M , outerCtx, idBOOLEAN, 1]; 
idFALSE *- MakeConstant["FALSE" , outerCtx, idBOOLEAN, 0]; 
-- make a universal NIL 

[] <- MakeConstant["NIL", outerCtx, ptrSei, 0]; 
-- make a neutral entry for error recovery 
seAnon <- MakeVariable[ 
n ame : " ? " , 
ctx: outerCtx, 
type: typeANY, 
offset: [wd:0, bd:0], 
nBits: WordLength]; 
-- predeclare UNWIND 

tSei 4- makenonctxse[SIZE[transfer constructor SERecord]]; 
(seb+tSei)t 4- SERecord[mark3 : TRUE, mark4: TRUE, 
sebody: constructor[ 
transfer[ 

mode: error, 

inrecord: recordCSENull , 
outrecord: recordCSENull]]]; 
[--idUNWIND--] <- MakeConstant["UNWIND", outerCtx, tSei , 
Control Defs. Control Li nk[procedure[ 
gfi: ControlDefs.GFTNull , 
ep: ControlDefs .EPRange-1, 
tag: procedure]]]; 
-- make some constants 
BEGIN 

tCO <- [literal[word[index: Li tDef s . FindLiteral [0]]]]; 
tCl 4- [literal[word[index: Li tDef s . FindLiteral [1]]]]; 
END; 
resetctxl ist[outerCtx]; 
RETURN 
END; 



SubStringDescriptor : TYPE •» StringDef s.SubStr ingDescriptor ; 
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MakeNamedType: PROCEDURE [s: STRING, type: SEIndex] RETURNS [sei: ISEIndex] ■ 
BEGIN 

desc: SubStringDescriptor <- [base:s, offset:0, length:s. length]; 
sei <- makectxse[EnterString[@desc], outerCtx]; 

BEGIN OPEN (seb+sei); 

idtype <- typeTYPE; idinfo ♦- type; idvalue «- TreeDefs. empty; 

writeonce «- constant <- TRUE; 

extended <- public «- linkSpace <- FALSE; 

mark3 +• mark4 +* TRUE; 

END; 
RETURN 
END; 

MakeBasicType: PROCEDURE 

[s: STRING, code: [0. .16), ordered: BOOLEAN, nBits: CARDINAL] 

RETURNS [ISEIndex] - 
BEGIN -- makes an se entry for a built-in type -- 
sei: CSEIndex ■ makenonctxse[SIZE[basic constructor SERecord]]; 
(seb+sei)t *- SERecord[mark3: TRUE, mark4: TRUE, 

sebody: constructor[ 

basic[ordered:ordered, code:code, length:nBits]]]; 
RETURN [MakeNamedType [s, sei]] 
END; 

MakeConstant: PROCEDURE 

[name: STRING, ctx: CTXIndex, type: SEIndex, value: UNSPECIFIED] 
RETURNS [sei: ISEIndex] - 
BEGIN -- makes an se entry for a built-in constant -- 
desc: SubStringDescriptor <- [base:name, offset:0, length:name. length]; 
sei <- makectxse[EnterString[@desc], ctx]; 
BEGIN OPEN (seb+sei); 

idtype *- type; idinfo <- 0; idvalue «- value; 
writeonce «- constant <- TRUE; 
extended <- public «- linkSpace ♦• FALSE; 
mark3 «- mark4 <- TRUE; 
END; 
RETURN 
END; 

MakeVariable: PROCEDURE 

[name: STRING, ctx: CTXIndex, type: SEIndex, offset: BitAddress, nBits: CARDINAL] 
RETURNS [sei: ISEIndex] - 
BEGIN 

desc: SubStringDescriptor <- [base:name, offset:0, length:name. length]; 
sei <- makectxse[EnterString[6desc], ctx]; 
BEGIN OPEN (seb+sei); 

idtype +• type; idvalue «- offset; idinfo <- nBits; 
writeonce *■ constant ♦- public <- extended ♦■ linkSpace ♦- FALSE; 
mark3 ♦■ mark4 <- TRUE; 
END; 
RETURN 
END; 

rCtx: CTXIndex; 
seChain: ISEIndex; 

MakeRecord: PROCEDURE [nFields, nBits: CARDINAL] RETURNS [rSei: recordCSEIndex] - 
BEGIN 

rSei «- LOOPHOLE[makenonctxse[SIZE[notlinked record constructor SERecord]]]; 
rCtx <- makenewctx[lZ]; 

(ctxb+rCtx) .sei ist +■ seChain ♦- makeSEChain[rCtx, nFields, FALSE]; 
(seb+rSei)t <- SERecord[mark3: TRUE, mark4: TRUE, 
sebody: constructor[ 
record[ 

machineDep: TRUE, 

unifield: nFields - 1, 

argument: FALSE, 

defaultFields: FALSE, 

fieldctx: rCtx, 

length: nBits, 

comparable: FALSE, 

privateFields: FALSE, 

lengthUsed: FALSE, 

monitored: FALSE, 

variant: FALSE, 
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RETURN 
END; 



linkpart: not! inked[]]]]; 



MakeField: PROCEDURE 

[name: STRING, type: SEIndex, offset: BitAddress, nBits: CARDINAL] 
RETURNS [sei: ISEIndex] ■ 
BEGIN 

desc: SubStringDescriptor; 
hti: HTIndex; 
IF name # NIL 
THEN 
BEGIN 

desc <- [base:name, offset:0, length: name, length]; 
hti <- EnterString[Qdesc]; 
END 
ELSE hti «- HTNull; 
sei <- seChain; seChain «- NextSe[seChain]; 
fillctxse[sei, hti, FALSE]; 
BEGIN OPEN (seb+sei); 

idtype «- type; idvalue «- offset; idinfo «- nBits; 
writeonce «- constant *- public *- extended «- linkSpace <- FALSE; 
mark3 «- mark4 <- TRUE; 
END; 
RETURN 
END; 

MakePointerType: PROCEDURE [refType: SEIndex] RETURNS [sei: CSEIndex] - 
BEGIN 

sei <- makenonctxse[SIZE[pointer constructor SERecord]]; 
(seb+sei)t <- SERecord[mark3 : TRUE, mark4: TRUE, 
sebody: constructor[ 
pointer[ 

ordered: FALSE, 
readonly: FALSE, 
basing: FALSE, 
pointedtotype: refType, 
dereferenced: TRUE]]]; 
RETURN 
END; 

MakeSubrangeType : PROCEDURE 

[s: STRING, origin: INTEGER, range: CARDINAL] 
RETURNS [ISEIndex] » 
BEGIN 

sei: CSEIndex; 

sei <- makenonctxse[SIZE[subrange constructor SERecord]]; 
(seb+sei)t <- SERecord[mark3 : TRUE, mark4: TRUE, 
sebody: constructor[ 
subrange[ 

filled: TRUE, 
empty: FALSE, 
flexible: FALSE, 
rangetype: idlNTEGER, 
origin: origin, 
range: range]]]; 
RETURN [MakeNamedType[s, sei]] 
END; 



PlUnit: PUBLIC PROCEDURE « 
BEGIN OPEN SegmentDefs; 
TableDefs.AddNotify[PlNotify]; 
Pref illSymbols[]; 
TableDefs.DropNotify[PlNotify]; 
RETURN 
END; 

END. 



